有点甜老师：有没有办法“每点击一次，只输入一列，并依次填入到“随机测算_1”,“随机测算_2”,“随机测算_3”....直至“随机测算_7为止””，而不是一次性输入七列。
Dim tb As Table = Tables("投标测算_Table2")
Dim val1 As Double = CDbl(e.Form.Controls("TextBox2").Value)
Dim val2 As Double = CDbl(e.Form.Controls("TextBox3").Value)
If val1 = 0 OrElse val2 = 0 Then
MessageBox.Show("请先输入参数范围数据!")
Else
Dim i As Integer = 1
For Each rw As Row In tb.Rows
For Each cl As Col In tb.Cols
If cl.DataCol.Name.StartsWith("随机测算_")
'For i As Integer = 1 To 7
i += 1
If rw("随机测算_" & i) = Nothing Then
Dim n = Rand.Next(val1,val2)
rw("随机测算_" & i) = n
End If
'Next
End If
Next
Next
End If
[此贴子已经被作者于2018/7/14 3:40:24编辑过]
加好友 
发短信
Post By：2018/7/12 16:11:00 [显示全部帖子]
此主题相关图片如下：888894208.png
