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编辑过]