齐齐哈尔vb高手没? 帮小弟翻译一段程序有点长小弟跪拜了

显示全部楼层 · 2008-5-24 21:37:14

去电脑部分问问吧~~~~~~

千问 · 2008-5-24 21:37:14

如果IsBeginS =错误然后‘用户选择了更新数据库作为串的Dim strm 作为ADODB.Recordset的Dim mrc3 Set mrc3 =新的ADODB.Recordset Set mrc3 = Adodc1.Recordset mrc3.MoveFirst Do，当不是mrc3.EOF时 For我= 1对NC strm = Text2 (i)。文本然后If strm = "" Exit为 End，如果 For j = 0对cbs.ListCount If cbs。名单(j) =修剪(strm)然后 Exit为 End，如果 Next If然后j > cbs.ListCount cbs.AddItem修剪(strm) End，如果 Next mrc3.MoveNext Loop 中间的If (App.path， Len (App.path) - 1， 1) “\”然后Open App.path + “\ allstation.dat”作为#1 的产品的Else Open App.path + “allstation.dat”作为#1 的产品的End，如果 Print #1， CStr (cbs.ListCount) For k = 0对cbs.ListCount - 1 Print #1， cbs。名单(k) Next Close #1 Set mrc3 =没什么 Else ‘用户没有选择了更新数据库作为串的Dim strbs 作为整数的Dim intnb 中间的If (App.path， Len (App.path) - 1， 1) “\”然后Open App.path + “\ allstation.dat”作为#1 的输入的Else Open App.path + “allstation.dat”作为#1 的输入的End，如果 Input #1， strbs intnb = CInt (Val (strbs)) For k = 0对intnb - 1 Input #1， strbs cbs.AddItem strbs Next Close #1 End，如果 End潜水艇 Public次级showtitle (作为整数的numt) '$2 For j = 0到2 If numt = 2和j = 1然后 Exit潜水艇 End，如果 MSF1 (j)。明白 Dim我作为整数 With MSF1 (j) .Rows = 2 .Cols = NC + 3 .TextMatrix (0， 1) = “车次” For k = 1对NC + 1 .TextMatrix (0， k + 1) = “站” & CStr (k) .ColWidth (k) = 1000年 Next .TextMatrix (0， NC + 2) = “备注” .ColWidth (0) = 200 .ColWidth (NC + 1) = 1000年 .FixedRows = 1 For我= 1对NC .ColAlignment (i) = 0 Next我 .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel =。Cols - 1 .CellAlignment = 4 .Row = 1 End与 Next End潜水艇 Public次级showdata (数字作为整数) '$6 showtitle (数字) 作为整数的Dim j Dim我作为整数作为ADODB.Recordset的Dim mrc0 Set mrc0 =新的ADODB.Recordset Set mrc0 = ExecuteSQL (txtsql) If mrc0.EOF =错误然后 mrc0.MoveFirst With MSF1 (数字) .Rows = 2 .Row = 1 Do，当不是mrc0.EOF时 .Rows =。行+ 1 For我= 1对mrc0.Fields.Count If mrc0.Fields (i - 1) “零位”然后 .TextMatrix (。行， i - 1) = mrc0.Fields (i - 1) End，如果 Next我 .Row =。行+ 1 mrc0.MoveNext Loop End与 End，如果 Set mrc0 =没什么 End潜水艇或如果isbegins =虚假，然后用户选择了更新数据库暗淡strm作为字符串暗淡mrc3作为adodb.recordset 设置mrc3 =新adodb.recordset 设置mrc3 = adodc1.recordset mrc3.movefirst 这样做虽然不mrc3.eof 我= 1 ，以数控strm = text2 （一）。文本如果strm = “ ” ，然后退出如果年底律政司司长= 0 cbs.listcount 如果cbs.list （十） =修剪（ strm ），然后退出如果年底下一个如果j > cbs.listcount ，然后cbs.additem修剪（ strm ）如果年底下一个mrc3.movenext 闭环如果中（ app.path ，时限（ app.path ） -1 ， 1 ）“ \ ” ，然后开放app.path + “ \ allstation.dat ”输出为＃ 1 其他的开放app.path + “ allstation.dat ”输出为＃ 1 如果年底打印＃ 1 ，在CSTR （ cbs.listcount ）对K = 0 cbs.listcount -1 打印＃ 1 ，， cbs.list （ k ）款下一个密切＃ 1 设置mrc3 =无关否则， '用户没有选择了更新数据库暗淡strbs作为字符串暗淡intnb作为整数如果中（ app.path ，时限（ app.path ） -1 ， 1 ）“ \ ” ，然后开放app.path + “ \ allstation.dat ”的投入为＃ 1 其他的开放app.path + “ allstation.dat ”的投入为＃ 1 如果年底输入＃ 1 ， strbs intnb = cint （ val （ strbs ））对K = 0 intnb -1 输入＃ 1 ， strbs cbs.additem strbs 下一个密切＃ 1 如果年底结束小组公共小组showtitle （ numt作为整数） '用于显示列表中的标题律政司司长= 0至2 如果numt = 2和J = 1 ，然后退出小组如果年底msf1 （ j ）段。明确黯淡我作为整数与msf1 （ j ）条。行= 2 。列=数控+ 3 。 textmatrix （ 0 ， 1 ） = “车次” 对K = 1 ，以数控+ 1 。 textmatrix （ 0 ，钾1 ） = “站” ＆ CSTR中（ k ）款。 colwidth （ k ）款= 1000 下一个。 textmatrix （ 0 ，数控+ 2 ） = “备注” 。 colwidth （ 0 ） = 200 。 colwidth （数控+ 1 ） = 1000 。 fixedrows = 1 我= 1 ，以数控。 colalignment （一） = 0 接下来，我。 fillstyle = flexfillsingle 。中校= 0 。连续= 0 。 rowsel = 1 。 colsel = 。列-1 。 cellalignment = 4 。连续= 1 结束下一个结束小组公共小组showdata （ NUM个为整数） '用于显示按车站名进行的查询showtitle （ NUM个）暗淡j为整数黯淡我作为整数暗淡mrc0作为adodb.recordset 设置mrc0 =新adodb.recordset 设置mrc0 = executesql （ txtsql ）如果mrc0.eof =虚假，然后mrc0.movefirst 与msf1 （ NUM个）。行= 2 。连续= 1 这样做虽然不mrc0.eof 。行= 。行+ 1 我= 1至mrc0.fields.count 如果mrc0.fields （我-1 ）“无效” ，然后。 textmatrix （。行，我-1 ） = m rc0.fields（我- 1）如果年底接下来，我。连续= 。连续+ 1 mrc0.movenext 闭环结束如果年底设置mrc0 =无关结束小组

齐齐哈尔vb高手没? 帮小弟翻译一段程序 有点长 小弟跪拜了

齐齐哈尔vb高手没? 帮小弟翻译一段程序有点长小弟跪拜了