共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：狐爸,如何判定两列数字的单双,或者奇偶?
1楼
kissbar 发表于：2011/8/22 10:21:00
知道的兄弟也帮我弄一下
我要把它设置成，我在前面输入一个数，假如如果输入的数字为奇，则后面为奇的列，则乘以2.否则则为0
此主题相关图片如下：qq截图20110822101644.jpg
[此贴子已经被作者于2011-8-22 10:21:49编辑过]
2楼
狐狸爸爸 发表于：2011/8/22 10:26:00呵呵，没有看懂你的问题。
3楼
kissbar 发表于：2011/8/22 10:36:00一；我在""奇巧""列任意输入一个数字，然后在第三列用函数来判断，
我估计格式应该是：如果"奇巧"列为奇，则第二列的数值变成0，而第三列的数值应该乘以2
能理解吗 狐爸？
4楼
狐狸爸爸 发表于：2011/8/22 10:38:00为偶呢？
5楼
kissbar 发表于：2011/8/22 12:13:00我举例了呀，第一列我设置的是5(也就是说是单)，第二列我设置的是2(也就是双)；第一列和第二列的变化，在于""奇巧""列的 看是单还是双？
如果是单，第一列应该变成10，第二列为0
如果是双，第一列应该变成0，第二列为4
能懂吗
6楼
紙上不談兵 发表于：2011/8/22 13:25:00DataColChanged 事件
If e.DataCol.Name ="奇偶" Then
Dim dr As DataRow = e.DataRow
If dr("奇偶") Mod 2 =0 Then
dr("第一列") = 0
dr("第二列") = 4
Else
dr("第一列") = 10
dr("第二列") = 0
End If
End If
7楼
kissbar 发表于：2011/8/22 15:50:00能用?
8楼
程兴刚 发表于：2011/8/22 16:53:00DataColChanged 事件
If e.DataCol.Name ="奇偶" Then
Dim dr As DataRow = e.DataRow
If dr("奇偶") Mod 2 =0 Then
dr("第一列") = 0
dr("第三列") = dr("第二列")*2
Else
dr("第三列") = dr("第一列")*2
dr("第二列") = 0
End If
End If
必须增加辅助列，否则奇偶列无法修改数据！
晕，手机回复空格、换行都没有了！
[此贴子已经被作者于2011-8-23 2:01:03编辑过]
9楼
kissbar 发表于：2011/8/22 17:11:00你这个可以用，但是我不能改变第一列跟第二列的数值呀，因为第一列跟第二列是任意输入的噢
以下是引用紙上不談兵在2011-8-22 13:25:00的发言：
DataColChanged 事件
If e.DataCol.Name ="奇偶" Then
Dim dr As DataRow = e.DataRow
If dr("奇偶") Mod 2 =0 Then
dr("第一列") = 0
dr("第二列") = 4
Else
dr("第一列") = 10
dr("第二列") = 0
End If
End If
10楼
foxor 发表于：2011/8/22 17:44:00判断奇偶：
dim i as integer
dim j,k as double
j=i/2
k=math.floor(i/2)
if j=k then
messagebos.show("偶数")
else
messagebox.show("奇数")
end if
判断mod 2是否为零
[此贴子已经被作者于2011-8-22 17:49:16编辑过]
共10 条记录, 每页显示 10 条, 页签:
[1]