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 a as integer = tgb.rows.count
Dim nrs As Row = tgb.AddNew(FFFF)
for each i as integer = a to tgb.rows.count - 1
tgb.rows(i)("线索来源"）= “销售”
next
tgb.Select(nrs.index,0)
tgb.StartEditing
FFFF = Nothing
Else
End If
End If
加好友 
发短信
Post By：2022/6/13 14:57:00 [显示全部帖子]
