Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样做才能使表格中的起始状态没有任何内容


  共有1916人关注过本帖树形打印复制链接

主题:[求助]怎样做才能使表格中的起始状态没有任何内容

帅哥哟,离线,有人找我吗?
33chyh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1307 威望:0 精华:0 注册:2015/12/27 21:01:00
[求助]怎样做才能使表格中的起始状态没有任何内容  发帖心情 Post By:2016/3/5 10:18:00 [只看该作者]

老师:您好!下面是我编写的一段代码,在输入第一组数据后,成绩表中成绩1列的其他人的相关内容出现0。怎样做才能使其他行的起始数据没有任何内容呢?
Dim kgt1,kgt2,zgt1,zgt2 As Integer
For Each dr As DataRow In DataTables("答题数据1").datarows
    Dim fdr1 As DataRow = DataTables("客观题答案").find("客观题1 = '" & dr("客观题1") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
    Dim fdr2 As DataRow = DataTables("客观题答案").find("客观题2 = '" & dr("客观题2") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
    Dim ndr As DataRow = DataTables("成绩表").Find("学号 = '" & dr("学号") & "'")
    If ndr Is Nothing Then
        ndr = DataTables("成绩表").AddNew
        ndr("学号") = dr("学号")
    End If
    If fdr1 Is Nothing Then
        kgt1 = 0
    Else
        kgt1= 1
    End If
    If fdr2 Is Nothing Then
        kgt2 = 0
    Else
        kgt2= 1
    End If
    If dr("主观题1") = "t" Then
        zgt1 = 1
    Else
        zgt1=0
    End If
    If dr("主观题2") = "t" Then
        zgt2 = 1
    Else
        zgt2=0
    End If      '给相关列赋值
    ndr("成绩1") = kgt1 + kgt2 + zgt1+ zgt2
Next
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/3/5 11:10:00 [只看该作者]

Dim kgt1,kgt2,zgt1,zgt2 As Integer

Dim fdr1 As DataRow = DataTables("客观题答案").find("客观题1 = '" & e.DataRow("客观题1") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
Dim fdr2 As DataRow = DataTables("客观题答案").find("客观题2 = '" &  e.DataRow("客观题2") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
Dim ndr As DataRow = DataTables("成绩表").Find("学号 = '" &  e.DataRow("学号") & "'")
If ndr Is Nothing Then
    ndr = DataTables("成绩表").AddNew
    ndr("学号") =  e.DataRow("学号")
End If
If fdr1 Is Nothing Then
    kgt1 = 0
Else
    kgt1= 1
End If
If fdr2 Is Nothing Then
    kgt2 = 0
Else
    kgt2= 1
End If
If  e.DataRow("主观题1") = "t" Then
    zgt1 = 1
Else
    zgt1=0
End If
If  e.DataRow("主观题2") = "t" Then
    zgt2 = 1
Else
    zgt2=0
End If      '给相关列赋值
ndr("成绩1") = kgt1 + kgt2 + zgt1+ zgt2

 回到顶部
帅哥哟,离线,有人找我吗?
33chyh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1307 威望:0 精华:0 注册:2015/12/27 21:01:00
  发帖心情 Post By:2016/3/5 12:47:00 [只看该作者]

谢谢,已经实现要求了!

 回到顶部