Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:童狐 帖子:295 积分:2308 威望:0 精华:0 注册:2013/4/9 11:49:00
[求助]  发帖心情 Post By:2021/7/18 11:22:00 [只看该作者]

1、窗口一个table控件,通过sql插入数据后,如何能让tabel控件立即更新数据,显示出来
2、在插入数据是,如何判断根据为空
   Dim tb As  DataTable
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into mxb (序号,报账日期,报账村社,报账事宜,金额,收款人,卡号,经办人,备注,附件) Values(?,?,?,?,?,?,?,?,?,?)"
Dim b1,b2,b3,b4,b5,b6,b7,b8 As winform.textBox
Dim c1 As WinForm.DateTimePicker
b1 = e.Form.Controls("TextBox1")
c1=e.Form.Controls("datetimepicker1")
b2 = e.Form.Controls("TextBox2")
b3 = e.Form.Controls("TextBox3")
b4 = e.Form.Controls("TextBox4")
b5 = e.Form.Controls("TextBox5")
b6 = e.Form.Controls("TextBox6")
b7 = e.Form.Controls("TextBox7")
b8 = e.Form.Controls("TextBox8")

If c1.Text="" Then
    MessageBox.Show("报账日期不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
  e.Cancel=True
Else
  
End If
If b2.Text="" Then
  MessageBox.Show("报账村社不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b4.Text="" Then
    MessageBox.Show("金额不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b5.Text="" Then
  MessageBox.Show("收款人不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b6.Text="" Then
  MessageBox.Show("卡号不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b7.Text="" Then
    MessageBox.Show("经办人不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
cmd.Parameters.Add("@序号",b1.Text)
cmd.Parameters.Add("@报账日期",c1.Value) 
cmd.Parameters.Add("@报账村社",b2.Text)
cmd.Parameters.Add("@报账事宜",b3.Text)
cmd.Parameters.Add("@金额",b4.text)
cmd.Parameters.Add("@收款人",b5.text)
cmd.Parameters.Add("@卡号",b6.text)
cmd.Parameters.Add("@经办人",b7.text)
cmd.Parameters.Add("@备注",b8.text)
cmd.ExecuteNonQuery
现在的语句不能进行判断,请教修改

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/18 20:42:00 [只看该作者]

1、重新加载数据:http://www.foxtable.com/webhelp/topics/1928.htm
2、
If c1.Text="" Then
    MessageBox.Show("报账日期不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
  return
End If
If b2.Text="" Then
  MessageBox.Show("报账村社不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
return
End If

 回到顶部