qili313 发表于 2007-11-1 16:20:00

懂程序的进来看下

<strong>懂程序的进来看下<br/></strong>在IC_M1.Text 栏里可以输入:&nbsp;&nbsp;172B2风马牛,182C2风马牛,162D2风马牛,等很多<br/>我要<br/>如果 c_m1.text 里包含了172b2<br/>C_HM.Text = 11<br/>如果 c_m1.text 里包含了182C2<br/>C_HM.Text = 7<br/>如果 c_m1.text 里包含了162d2<br/>C_HM.Text = 5<br/>......................<br/>........................<br/>============<br/>c_m2.text 里包含了172b2<br/>C_HM2.Text = 11<br/>如果 c_m2.text 里包含了182C2<br/>C_HM2.Text = 7<br/>如果 c_m2.text 里包含了162d2<br/>C_HM2.Text = 5<br/>............<br/>..............<br/>该咋个来做？最简化的做法．．．．还有．．．对了．．用vba<br/>

黄玉宏 发表于 2007-11-1 19:36:00

<p>注：以下是VB6.0代码,用到CAD中作适当调整</p><p>Private Sub Command1_Click()<br/>Dim a<br/>a = Left(Text1.Text, 5)<br/>Select Case a<br/>Case "172b2"<br/>Text2.Text = 11<br/>Case "182c2"<br/>Text2.Text = 12<br/>'……<br/>End Select<br/>End Sub</p>

dxhy 发表于 2007-11-5 17:43:00

<p>楼上说的不行吧！</p><p>只能实现一部分功能，要想实现全部，就要用like语句</p>
页: [1]
查看完整版本: 懂程序的进来看下