Dim Cols1() As String = {"代码","名称","涨幅","现价","总手","现手","昨收","开盘","最高","最低","买价","卖价","涨速","量比","所属行业"}
Dim Cols2() As String = {"代码","名称","涨幅","现价","总手","现手","昨收","开盘","最高","最低","买价","卖价","涨速","量比","所属行业"}
Dim drs As List(Of DataRow) = DataTables("当天收盘数据").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
DataTables("当天收盘数据").StopRedraw
For j As Integer = 0 To drs.count - 1
Dim dr1 As DataRow = drs(j)
Dim dr2 As DataRow = DataTables("数据库更新").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
p.Value = j
Application.Doevents
Next
DataTables("当天收盘数据").ResumeRedraw
'=================================
Tables("数据库更新").save
Tables("日期").save
MessageBox.show("成功导入数据!")
End If
老师，上面是复制数据的按钮代码。下面是表事件代码。
Dim s As Integer =Tables("数据库更新").Rows.Count - 1
If s > 0 Then
If Forms("股piao数据明细").opened
Dim sjbrq As WinForm.TextBox = e.Form.Controls("数据包日期")
sjbrq.value=Tables("数据库更新").rows(s)("日期")
End If
End If
这两个代码好像有冲突。我在复制数据时报错。
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：表，数据库更新，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Object reference not set to an instance of an object.
[此贴子已经被作者于2015/10/7 20:18:07编辑过]
加好友 
发短信
Post By：2015/10/7 19:11:00 [只看该作者]
