主题：复制

DataRowAdded事件，如下代码

 

Dim t As Table = Tables(e.DataTable.Name)
Dim idx As Integer = t.FindRow(e.DataRow)
If idx > 0 Then
    Dim r2 As Row = t.Rows(idx - 1)
   
    For Each c As Col In t.cols
        e.DataRow(c.name) = r2(c.name)
    Next
End If

    For Each c As Col In t.cols
        e.DataRow(c.name) = r2(c.name)
    Next

 

换成

 

    e.DataRow("第一列") = r2("第一列")

 

 

 

 什么意思？

 你想说什么？新增行的时候，把窗口控件的值赋值给新增的行？

DataRowAdded事件，加入代码

 

If Forms("窗口1").Opened Then
    e.DataRow("日期列") = Forms("窗口1").Controls("DateTimePicker1").Text
End If

 

 新增之后赋值啊

 

Dim ndr As DataRow = DataTables("fa piao管理").AddNew

ndr("日期") = e.Form.Controls("DateTimePicker1").Text

 第一行赋值，以后的不赋值？那就分开来写啊

 

Dim ndr As DataRow = DataTables("fa piao管理").AddNew
ndr("fa piao号码") = s & val(t1.text) + i - 1

ndr("日期") = e.Form.Controls("DateTimePicker1").Text

For i As Integer = 2 To val(t2.text)
    ndr = DataTables("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next

 

 看14楼。

 

 你原来放在哪里，就放在哪里

 无语了。谁叫你写在这个事件啊，写在按钮里面啊

 

Dim ndr As DataRow = DataTables("fa piao管理").AddNew
ndr("fa piao号码") = s & val(t1.text)

ndr("日期") = e.Form.Controls("DateTimePicker1").Text

For i As Integer = 2 To val(t2.text)
    ndr = DataTables("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next

 加上你之前的代码啊，这也不会么

 

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim s As String = ""
If t1.text(0) = "0" Then
    s = "0"
End If

 

Dim ndr As DataRow = DataTables("fa piao管理").AddNew
ndr("fa piao号码") = s & val(t1.text)

ndr("日期") = e.Form.Controls("DateTimePicker1").Text

For i As Integer = 2 To val(t2.text)
    ndr = DataTables("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next