Dim FFFF As String = e.Form.Controls("TextBox1").text
If FFFF = Nothing Then
MessageBox.Show("请先填写要增加的行数 !")
e.Cancel = True
Else
Dim CCCC As DialogResult
CCCC = MessageBox.Show("是否增加: " & FFFF & " 行的空行" , "提示" , MessageBoxButtons.YesNo , MessageBoxIcon.Question)
If CCCC = DialogResult.Yes Then
Dim tgb As Table = Tables("销售订单录入窗口_Table1")
Dim nrs As Row = tgb.AddNew(FFFF)
tgb("线索来源"）= “销售”
tgb.Select(nrs.index,0)
tgb.StartEditing
FFFF = Nothing
Else
End If
End If
e.Form.Controls("TextBox1").text = ""
请问老师，如何向新增行的“线索来源”列写入“销售”，新增的每一行都写入“销售“，现在的代码只写入一行，您受累给修改下
加好友 
发短信
Post By：2022/6/13 14:29:00 [只看该作者]
