<ItemTemplate>
<asp:Button id="Btn_CheckOn" runat="server" Text="出社" CommandName="Btn_CheckOn_Click"></asp:Button>
<asp:Button id="Btn_CheckOf" runat="server" Text="退社" CommandName="Btn_CheckOf_Click"></asp:Button>
</ItemTemplate>Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand If e.CommandName = "Btn_CheckOn_Click" Then Dim strb_sql As System.Text.StringBuilder
Dim obj_CLS_AL_FA001 As CLS_AL_FA001
With strb_sql
.Remove(0, .Length)
.Append("UPDATE WORKTIME_INFO SET USER_ON = convert(varchar(5),getdate(),108)")
.Append(vbCrLf)
.Append("Where USER_ID = 'wei-h'")
.Append(vbCrLf)
.Append("SYS_DATE='" + Func_Format8To10(Label2.Text)+ "'")
End With
...............在这里运行到定义strb_sql的时候就会出错,为什么???
大虾救救我 项目很紧 很害怕
<asp:Button id="Btn_CheckOn" runat="server" Text="出社" CommandName="Btn_CheckOn_Click"></asp:Button>
<asp:Button id="Btn_CheckOf" runat="server" Text="退社" CommandName="Btn_CheckOf_Click"></asp:Button>
</ItemTemplate>Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand If e.CommandName = "Btn_CheckOn_Click" Then Dim strb_sql As System.Text.StringBuilder
Dim obj_CLS_AL_FA001 As CLS_AL_FA001
With strb_sql
.Remove(0, .Length)
.Append("UPDATE WORKTIME_INFO SET USER_ON = convert(varchar(5),getdate(),108)")
.Append(vbCrLf)
.Append("Where USER_ID = 'wei-h'")
.Append(vbCrLf)
.Append("SYS_DATE='" + Func_Format8To10(Label2.Text)+ "'")
End With
...............在这里运行到定义strb_sql的时候就会出错,为什么???
大虾救救我 项目很紧 很害怕
解决方案 »
- 批量生成静态页面时,远程服务器返回错误: (500) 内部服务器错误。 如果我结束一下aspnet_wp.exe服务,可继续往下生成...
- 急!分组显示水晶报表,显示错误
- ASP,NET 的Datagrid 能有VB.net那样功能可以复制数据到EXCL那样整齐
- C#.net读取Execl表的最大限量是多少?
- VB.NET和C#开发ASP。NET之间有什么区别!
- 新装得vs2003,但新建asp.net项目时提示web服务器运行得不是asp.net1.1版?
- 怎样将datagrid中的模板列中的textbox设置为不可更改,是在程序中
- 网站建好后,如何弄安装页面?
- 为什么ASP.NET中Windows Forms中的控件都不能用呀
- asp+ 和 Asp 比 到底有什么好处?希望结合自己的亲身感受谈谈!
- 各位高手帮帮忙
- 两次while Dr.read()问题
不用StringBuilder了???是不是这个意思?
.Remove(0, .Length)
.Append("UPDATE WORKTIME_INFO SET USER_ON = convert(varchar(5),getdate(),108)")
.Append(vbCrLf)
.Append("Where USER_ID = 'wei-h'")
.Append(vbCrLf)
.Append("SYS_DATE='" + Func_Format8To10(Label2.Text)+ "'")
End With断点打在‘With strb_sql’这里,运行到‘.Remove(0, .Length)’就出错
于是我将‘.Remove(0, .Length)’删掉,程序就变成:With strb_sql
.Append("UPDATE WORKTIME_INFO SET USER_ON = convert(varchar(5),getdate(),108)")
.Append(vbCrLf)
.Append("Where USER_ID = 'wei-h'")
.Append(vbCrLf)
.Append("SYS_DATE='" + Func_Format8To10(Label2.Text)+ "'")
End With
但是在“.Append("UPDATE WORKTIME_INFO SET USER_ON = convert(varchar(5),getdate(),108)")”这里依然会出错!所以我就弄不明白了,急救急救