Dim cmd2 As New SQLCommand
c*md2.C
Dim dt4 As DataTable
Dim Cols3() As String = {"f_zh","f_nh","f_ywh","f_lb","f_rq"}
Dim Cols4() As String = {"账号","年号","业务号","摘要","日期"}
cmd2.CommandText = "S*ELECT * From {tb_khrgtgxh} where f_nh = '" & nh & "'"
dt4 = cmd2.ExecuteReader()
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = dt4.datarows.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
For Each dr3 As DataRow In dt4.DataRows
Dim dr4 As DataRow = DataTables("股金账页").AddNew()
For i2 As Integer = 0 To Cols3.Length -1
dr4(Cols4(i2)) = dr3(Cols3(i2))
Next
p.Value = 0
Application.DoEvents
Next
加好友 
发短信
Post By：2023/8/15 12:34:00 [显示全部帖子]
