问题描述
我调试了好久,代码还是有问题期间请教了我们论坛里的许多朋友,小弟在这里感谢大家!!最近又钻研无果,郁闷至极.期间用了各位朋友帮小弟提供的方法,也看了好多电子书教程资料,可是这个基础问题总是折磨我这个新手,实在郁闷透了.我单位里系统用VS2003做的,语言是VB.NET.由于单位里的数据库连接函数都是预先指定的,不允许我们随意修改,所以不许我们用DATAADAPTER来做,只能用循环来做.把整个函数的代码贴出来,麻烦请教各位朋友,真诚地感谢各位!!'(由于代码太长,从上到下分段贴出来)'
解决方案二：
解决方案三：
解决方案四：
解决方案五：
解决方案六：
解决方案七：
解决方案八：
解决方案九：
解决方案十：
解决方案十一：
解决方案十二：
解决方案十三：
解决方案十四：
解决方案十五：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
#'以下是总提交按钮事件函数，当按下这个按钮时，将DATATABLE中增、删、改的行保存数据库。'===============================定义变量部分=====================================Dimdt2AsNewDataTable'dt2是datagrid当前的数据源datatable.Dimdr2AsDataRowDimDS2AsNewDataSetDimdv2AsNewDataView(dt2)DimintCnt2AsInteger'表示条数DimintPageMax2AsLong'1页表示条数DimintCurPageIdx2AsLong'当前页数DimstrSql2AsString'SQLDimstrAllData2(,)AsString'全数据DimintRecCnt2AsInteger'全记录条数DimmstDbCls2AsNewComDbObjClass'公司定义的数据库对象类DimmstDsCls2AsNewComDataSourceClass'公司定义的检索数据保持类DimmstDbClsAsNewComDbObjClass'公司定义的数据库对象类DimmstDsClsAsNewComDataSourceClass'公司定义的检索数据保持类DimstrSqlAsString'SQL语句字符串DimintRetAsInteger'返回值，数据库中受影响的行数。DimintRet2AsIntegerDimintDeleteFlgAsInteger'删除标志Dimdate1AsDate'用来放当前日期DimstrMsgAsStringDimiAsInteger'循环变量DimjAsIntegerDimkAsIntegerDimlinshixiabiaoAsInteger'临时下标DimCounthangAsInteger'可以用来保存datagrid的数据行数DimdrxinhangAsDataRow'可以用来保存datagrid增加的新数据行DimdaAsNewSqlDataAdapterDimdsAsNewDataSet'以下各条定义都是预先准备插入数据库的列值的临时寄存器DimStrShangdian_codeAsString'商店代码,数据库里面放的是数字DimStrFuzeren_codeAsString'负责人代码，表示此次编辑是由谁负责的。DimStrKucun_fenleiAsString'库存分类码,在DATAGRID中放的是对应数字的文字,数据库里放的是数字.DimStrTebiepeisong_fenleiAsString'店铺配送分类码,在DATAGRID中放的是对应数字的文字,数据库里放的是数字.DimStrPeisong_SunAsString'周一到周六期间是否配送,在DATAGRID中是圈和叉符号,在数据库里则是1和0来表示.DimStrPeisong_MonAsStringDimStrPeisong_TueAsStringDimStrPeisong_WedAsStringDimStrPeisong_ThuAsStringDimStrPeisong_FriAsStringDimStrPeisong_SatAsStringDimStrDeleteFlagAsString'删除标志,置1表示该条记录已被删除.DimStrEntryDateAsString'创建当前记录的日期DimStrEntryUserAsString'创建当前记录的用户编号DimStrUpdateDateAsString'更新当前记录的日期DimStrUpdateUserAsString'更新当前记录的用户编号'====================================================================='
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##dt2=CType(ViewState("View1"),DataTable)'读取ViewState中的datatable'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##
解决方案
解决方案：
'==========================增删改部分================================='取得当前系统时间date1=ComDate.GetSysDatestrSql=String.Empty'======================================================================Fori=0Todt2.Rows.Count-1'删除的情况StrShangdian_code=Trim(txtCode.Text)StrFuzeren_code=strFuzerenIfdt2.Rows(i).Item(0)="DC"ThenStrPeisong_fenlei="1"ElseIfdt2.Rows(i).Item(0)="TC(按商店不同送货)"ThenStrPeisong_fenlei="2"ElseIfdt2.Rows(i).Item(0)="TC(送货总数)"ThenStrPeisong_fenlei="3"ElseIfdt2.Rows(i).Item(0)="直送"ThenStrPeisong_fenlei="4"EndIfIfdt2.Rows(i).Item(1)="普通品"ThenStrTebiepeisong_fenlei="1"ElseIfdt2.Rows(i).Item(1)="消耗品"ThenStrTebiepeisong_fenlei="2"ElseIfdt2.Rows(i).Item(1)="库存货物"ThenStrTebiepeisong_fenlei="3"EndIfIfdt2.Rows(i).Item(2)="○"ThenStrPeisong_Sun="1"ElseIfdt2.Rows(i).Item(2)="×"ThenStrPeisong_Sun="0"EndIfIfdt2.Rows(i).Item(3)="○"ThenStrPeisong_Mon="1"ElseIfdt2.Rows(i).Item(3)="×"ThenStrPeisong_Mon="0"EndIfIfdt2.Rows(i).Item(4)="○"ThenStrPeisong_Tue="1"ElseIfdt2.Rows(i).Item(4)="×"ThenStrPeisong_Tue="0"EndIfIfdt2.Rows(i).Item(5)="○"ThenStrPeisong_Wed="1"ElseIfdt2.Rows(i).Item(5)="×"ThenStrPeisong_Wed="0"EndIfIfdt2.Rows(i).Item(6)="○"ThenStrPeisong_Thu="1"ElseIfdt2.Rows(i).Item(6)="×"ThenStrPeisong_Thu="0"EndIfIfdt2.Rows(i).Item(7)="○"ThenStrPeisong_Fri="1"ElseIfdt2.Rows(i).Item(7)="×"ThenStrPeisong_Fri="0"EndIfIfdt2.Rows(i).Item(8)="○"ThenStrPeisong_Sat="1"ElseIfdt2.Rows(i).Item(8)="×"ThenStrPeisong_Sat="0"EndIfStrDeleteFlag="0"StrEntryDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrEntryUser=strUserIdStrUpdateDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrUpdateUser=strUserIdIfdt2.Rows(i).RowState=DataRowState.DeletedThenstrSql=String.EmptystrSql=strSql&"UPDATE"&cTABLE_NAME&"SET"strSql=strSql&"DeleteFlag='1',"'删除标志strSql=strSql&"UpdateDate="&"'"&Format(date1,"yyyy/MM/ddHH:mm:ss")&"',"'最終更新日strSql=strSql&"UpdateUser="&"'"&strUserId&"'"'最終更新者strSql=strSql&"whereShangdian_code="&"'"&StrShangdian_code&"'"strSql=strSql&"andFuzeren_Code="&"'"&StrFuzeren_code&"'"strSql=strSql&"andKucun_fenlei="&"'"&StrPeisong_fenlei&"'"strSql=strSql&"andTebiepeisong_fenlei="&"'"&StrTebiepeisong_fenlei&"'"strSql=strSql&"andPeisong_Sun="&"'"&StrPeisong_Sun&"'"strSql=strSql&"andPeisong_Mon="&"'"&StrPeisong_Mon&"'"strSql=strSql&"andPeisong_Tue="&"'"&StrPeisong_Tue&"'"strSql=strSql&"andPeisong_Wed="&"'"&StrPeisong_Wed&"'"strSql=strSql&"andPeisong_Thu="&"'"&StrPeisong_Thu&"'"strSql=strSql&"andPeisong_Fri="&"'"&StrPeisong_Fri&"'"strSql=strSql&"andPeisong_Sat="&"'"&StrPeisong_Sat&"'"intRet=mstDbCls.SetData(strSql)'通过公司定义的函数,执行sql语句,返回受影响的行数.'================================================================================================EndIfNext
解决方案：
'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##Fori=0Todt2.Rows.Count-1'修改的情况'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
NEXTI_MODIFY:'跳转,避免重复值'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
StrShangdian_code=Trim(txtCode.Text)StrFuzeren_code=strFuzerenIfdt2.Rows(i).Item(0)="DC"ThenStrPeisong_fenlei="1"ElseIfdt2.Rows(i).Item(0)="TC(按商店不同送货)"ThenStrPeisong_fenlei="2"ElseIfdt2.Rows(i).Item(0)="TC(送货总数)"ThenStrPeisong_fenlei="3"ElseIfdt2.Rows(i).Item(0)="直送"ThenStrPeisong_fenlei="4"EndIfIfdt2.Rows(i).Item(1)="普通品"ThenStrTebiepeisong_fenlei="1"ElseIfdt2.Rows(i).Item(1)="消耗品"ThenStrTebiepeisong_fenlei="2"ElseIfdt2.Rows(i).Item(1)="库存货物"ThenStrTebiepeisong_fenlei="3"EndIfIfdt2.Rows(i).Item(2)="○"ThenStrPeisong_Sun="1"ElseIfdt2.Rows(i).Item(2)="×"ThenStrPeisong_Sun="0"EndIfIfdt2.Rows(i).Item(3)="○"ThenStrPeisong_Mon="1"ElseIfdt2.Rows(i).Item(3)="×"ThenStrPeisong_Mon="0"EndIfIfdt2.Rows(i).Item(4)="○"ThenStrPeisong_Tue="1"ElseIfdt2.Rows(i).Item(4)="×"ThenStrPeisong_Tue="0"EndIfIfdt2.Rows(i).Item(5)="○"ThenStrPeisong_Wed="1"ElseIfdt2.Rows(i).Item(5)="×"ThenStrPeisong_Wed="0"EndIfIfdt2.Rows(i).Item(6)="○"ThenStrPeisong_Thu="1"ElseIfdt2.Rows(i).Item(6)="×"ThenStrPeisong_Thu="0"EndIfIfdt2.Rows(i).Item(7)="○"ThenStrPeisong_Fri="1"ElseIfdt2.Rows(i).Item(7)="×"ThenStrPeisong_Fri="0"EndIfIfdt2.Rows(i).Item(8)="○"ThenStrPeisong_Sat="1"ElseIfdt2.Rows(i).Item(8)="×"ThenStrPeisong_Sat="0"EndIfStrDeleteFlag="0"StrEntryDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrEntryUser=strUserIdStrUpdateDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrUpdateUser=strUserIdIfdt2.Rows(i).RowState=DataRowState.ModifiedThen'======================================如出现DATATABLE当前行主键值和数据库中重复问题,则跳转===========strSql=String.EmptyFork=0Todt2.Rows.Count-1strSql=strSql&"selectShangdian_code,Fuzeren_Code,Kucun_fenleifrom"&cTABLE_NAMEstrSql=strSql&"whereShangdian_code="&"'"&StrShangdian_code&"'"strSql=strSql&"andFuzeren_Code="&"'"&StrFuzeren_code&"'"strSql=strSql&"andKucun_fenlei="&"'"&StrPeisong_fenlei&"'"mstDsCls=mstDbCls.GetData(strSql)'通过公司定义的函数,执行sql语句,取得datatable当前行数,datatable当前行数是mstDsCls.GetRecordCount.IfmstDsCls.GetRecordCount<>0ThenIfi<dt2.Rows.Count-1Theni=i+1GoToNEXTI_MODIFYElseIfi>=dt2.Rows.Count-1ThenGoToENDI_MODIFYEndIfEndIfNext'===================================如没有出错,则对该行操作============================================strSql=String.EmptystrSql=strSql&"UPDATE"&cTABLE_NAME&"SET"strSql=strSql&"Shangdian_code="&"'"&StrShangdian_code&"',"'店舗名strSql=strSql&"Fuzeren_Code="&"'"&StrFuzeren_code&"',"strSql=strSql&"Kucun_fenlei="&"'"&StrPeisong_fenlei&"',"strSql=strSql&"Tebiepeisong_fenlei="&"'"&StrTebiepeisong_fenlei&"',"strSql=strSql&"Peisong_Sun="&"'"&StrPeisong_Sun&"',"strSql=strSql&"Peisong_Mon="&"'"&StrPeisong_Mon&"',"strSql=strSql&"Peisong_Tue="&"'"&StrPeisong_Tue&"',"strSql=strSql&"Peisong_Wed="&"'"&StrPeisong_Wed&"',"strSql=strSql&"Peisong_Thu="&"'"&StrPeisong_Thu&"',"strSql=strSql&"Peisong_Fri="&"'"&StrPeisong_Fri&"',"strSql=strSql&"Peisong_Sat="&"'"&StrPeisong_Sat&"',"strSql=strSql&"UpdateDate="&"'"&Format(date1,"yyyy/MM/ddHH:mm:ss")&"',"'最終更新日strSql=strSql&"UpdateUser="&"'"&strUserId&"'"'最終更新者intRet=mstDbCls.SetData(strSql)'通过公司定义的函数,执行sql语句,返回受影响的行数.'================================================================================================EndIfNext'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
ENDI_MODIFY:'结束跳出循环.'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
Fori=0Todt2.Rows.Count-1'新增的情况'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
NEXTI_ADD:'跳转,避免重复值'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
#'
解决方案：
解决方案：
解决方案：
解决方案：
#20080414FUZHI
解决方案：
解决方案：
解决方案：
解决方案：
StrShangdian_code=Trim(txtCode.Text)StrFuzeren_code=strFuzerenIfdt2.Rows(i).Item(0)="DC"ThenStrPeisong_fenlei="1"ElseIfdt2.Rows(i).Item(0)="TC(按商店不同送货)"ThenStrPeisong_fenlei="2"ElseIfdt2.Rows(i).Item(0)="TC(送货总数)"ThenStrPeisong_fenlei="3"ElseIfdt2.Rows(i).Item(0)="直送"ThenStrPeisong_fenlei="4"EndIfIfdt2.Rows(i).Item(1)="普通品"ThenStrTebiepeisong_fenlei="1"ElseIfdt2.Rows(i).Item(1)="消耗品"ThenStrTebiepeisong_fenlei="2"ElseIfdt2.Rows(i).Item(1)="库存货物"ThenStrTebiepeisong_fenlei="3"EndIfIfdt2.Rows(i).Item(2)="○"ThenStrPeisong_Sun="1"ElseIfdt2.Rows(i).Item(2)="×"ThenStrPeisong_Sun="0"EndIfIfdt2.Rows(i).Item(3)="○"ThenStrPeisong_Mon="1"ElseIfdt2.Rows(i).Item(3)="×"ThenStrPeisong_Mon="0"EndIfIfdt2.Rows(i).Item(4)="○"ThenStrPeisong_Tue="1"ElseIfdt2.Rows(i).Item(4)="×"ThenStrPeisong_Tue="0"EndIfIfdt2.Rows(i).Item(5)="○"ThenStrPeisong_Wed="1"ElseIfdt2.Rows(i).Item(5)="×"ThenStrPeisong_Wed="0"EndIfIfdt2.Rows(i).Item(6)="○"ThenStrPeisong_Thu="1"ElseIfdt2.Rows(i).Item(6)="×"ThenStrPeisong_Thu="0"EndIfIfdt2.Rows(i).Item(7)="○"ThenStrPeisong_Fri="1"ElseIfdt2.Rows(i).Item(7)="×"ThenStrPeisong_Fri="0"EndIfIfdt2.Rows(i).Item(8)="○"ThenStrPeisong_Sat="1"ElseIfdt2.Rows(i).Item(8)="×"ThenStrPeisong_Sat="0"EndIfStrDeleteFlag="0"StrEntryDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrEntryUser=strUserIdStrUpdateDate=Format(date1,"yyyy/MM/ddHH:mm:ss")StrUpdateUser=strUserIdIfdt2.Rows(i).RowState=DataRowState.AddedThenstrSql=String.Empty'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
#如出现DATATABLE当前行主键值和数据库中重复问题,则跳转
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
strSql=strSql&"selectShangdian_code,Fuzeren_Code,Kucun_fenleifrom"&cTABLE_NAMEstrSql=strSql&"whereShangdian_code="&"'"&StrShangdian_code&"'"strSql=strSql&"andFuzeren_Code="&"'"&StrFuzeren_code&"'"strSql=strSql&"andKucun_fenlei="&"'"&StrPeisong_fenlei&"'"mstDsCls=mstDbCls.GetData(strSql)'通过公司定义的函数,执行sql语句,取得datatable当前行数,datatable当前行数是mstDsCls.GetRecordCount.IfmstDsCls.GetRecordCount<>0ThenIfi<dt2.Rows.Count-1Theni=i+1GoToNEXTI_ADDElseIfi>=dt2.Rows.Count-1ThenGoToENDI_ADDEndIfEndIf'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
#如没有出错,则对该行操作
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##strSql=strSql&"INSERTINTO"&cTABLE_NAMEstrSql=strSql&"("strSql=strSql&"Shangdian_code,"strSql=strSql&"Fuzeren_Code,"strSql=strSql&"Kucun_fenlei,"strSql=strSql&"Tebiepeisong_fenlei,"strSql=strSql&"Peisong_Sun,"strSql=strSql&"Peisong_Mon,"strSql=strSql&"Peisong_Tue,"strSql=strSql&"Peisong_Wed,"strSql=strSql&"Peisong_Thu,"strSql=strSql&"Peisong_Fri,"strSql=strSql&"Peisong_Sat,"strSql=strSql&"DeleteFlag,"strSql=strSql&"EntryDate,"strSql=strSql&"EntryUser,"strSql=strSql&"UpdateDate,"strSql=strSql&"UpdateUser)"strSql=strSql&"VALUES('"strSql=strSql&StrShangdian_code&"','"strSql=strSql&StrFuzeren_code&"','"strSql=strSql&StrPeisong_fenlei&"','"strSql=strSql&StrTebiepeisong_fenlei&"','"strSql=strSql&StrPeisong_Sun&"','"strSql=strSql&StrPeisong_Mon&"','"strSql=strSql&StrPeisong_Tue&"','"strSql=strSql&StrPeisong_Wed&"','"strSql=strSql&StrPeisong_Thu&"','"strSql=strSql&StrPeisong_Fri&"','"strSql=strSql&StrPeisong_Sat&"','"strSql=strSql&StrDeleteFlag&"','"strSql=strSql&StrEntryDate&"','"strSql=strSql&StrEntryUser&"','"strSql=strSql&StrUpdateDate&"','"strSql=strSql&StrUpdateUser&"')"intRet=mstDbCls.SetData(strSql)'通过公司定义的函数,执行sql语句,返回受影响的行数.EndIfNext'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
ENDI_ADD:'结束跳出循环'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
VB不太熟，只能帮你顶下
解决方案：
dt2.GetChanges()'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##ViewState("View1")=dt2'用ViewState保存DATATABLE当前状态.'
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
解决方案：
##dtgList.DataSource=dt2dtgList.DataBind()
解决方案：
以上是全部的代码，总算发完了．小弟不才，编程用的是笨办法，致使那么简单的问题代码那么长．不过单位里的数据库连接函数都是指定的，不许我们用DATAADAPTER来做,真是郁闷．麻烦请教各位朋友的指点，从心底里感谢大家！！
解决方案：
麻烦就麻烦在数据库表里和datatable里放的东西类型不同.数据库里放的是数字,放到datatable里就成了圆圈大叉和文字了,还要对应起来转换,麻烦透了.
解决方案：
汗一个，没时间和心情看这么长的代码通常自己要知道问题具体点，至少也要精简到几行代码，这么长一般没人愿意看。
解决方案：
数据库里放的是数字,放到datatable里就成了圆圈大叉和文字了,还要对应起来转换既然别的不能动，也得转换啊，写个通用的函数，另外，先打印strSql看是否完全正确