蓝老师：
以下代码我的想法是：将抽选出的行，给予命名，目前完成不了命名，帮我看看，实例在下面
If e.Form.Controls("NumericComboBox1").value Is Nothing Then
MessageBox.Show("请输入质检样本数量","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
Return
Else
'ataTables("按卷整理质检_table1").LoadFilter = "[期数] = '"& e.Form.Controls("ComboBox1").text & "'"
DataTables("表A").Load()
End If
Dim cnt As Integer = DataTables("表A").DataRows.Count
Dim nds As Integer = e.Form.Controls("NumericComboBox1").text '要抽取的记录数
Tables("表A").StopRedraw()
DataTables("表A").ReplaceFor("抽检",False)
Do
Dim idx As Integer = rand.Next(0,cnt)
Dim dr As DataRow = DataTables("表A").DataRows(idx)
If dr("抽检") = False Then
dr("抽检") = True
nds = nds - 1
End If
Loop While nds > 0
Tables("表A").Filter = "[抽检] = True"
Tables("表A").ResumeRedraw()
Dim sn As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dt As Table = e.Form.Controls("Table1").Table
dt.Filter = Tables("表A").filter
For Each dr As Row In dt.Rows
dr("抽检名称")= sn
dr.Save
Next
加好友 
发短信
Post By：2020/7/7 2:21:00 [只看该作者]
