ACCESS中,后一列根据前一列的数值自动填数??? ACCESS数据库里,一列数据已经有了,需要在另一列根据前一...
access\u540e\u4e00\u5217\u6839\u636e\u524d\u4e00\u5217\u81ea\u52a8\u586b\u5145\u5185\u5bb9\u8981\u600e\u4e48\u505a\uff1f\u5982\u679c\u4e00\u5b9a\u8981\u5199\u5230\u8868\u91cc\u9762\uff0c\u90a3\u53ea\u80fd\u5199\u4ee3\u7801\u5b8c\u6210\uff0c\u6700\u7b80\u5355\u7684\u65b9\u5f0f\u662f\u5efa\u7acb\u4e00\u4e2a\u67e5\u8be2\uff0c\u8be5\u67e5\u8be2\u57fa\u4e8e\u5305\u542bA\u5217\u7684\u8868\u5e76\u589e\u52a0\u4e00\u4e2a\u8ba1\u7b97\u5b57\u6bb5\uff0c\u4e5f\u5c31\u662f\u4f60\u8981\u7684B\u5217\uff0c\u8be5\u5217\u6839\u636e\uff08\u4f60\u60f3\u8981\u7684\uff09\u4e0eA\u5217\u6570\u636e\u7684\u89c4\u5219\u8ba1\u7b97\u5373\u53ef\uff01\u60f3\u8981\u67e5\u770bB\u5217\u6570\u636e\uff0c\u5bf9\u8be5\u67e5\u8be2\u8fdb\u884c\u64cd\u4f5c\u5373\u53ef\uff08\u53ef\u50cf\u8868\u4e00\u6837\u6253\u5f00\uff0c\u53ea\u662f\u4e0d\u80fd\u66f4\u6539B\u5217\u6570\u636e\u800c\u5df2\uff09\uff01
\u5047\u8bbe\u8868\u540d\u4e3a\uff1aTB\uff0c\u7b2c\u4e00\u5217\u4e3a\uff1aA\uff0c\u7b2c\u4e8c\u5217\u4e3aB\uff1a\u5219\u8bed\u6cd5\u4e3a\uff1a
UPDATE Tb SET B = switch(A>=40,2,A>0 and A<40,1,A is null,null);
\u6d4b\u8bd5\u901a\u8fc7
1、建立一个数据表,表中有2个字段A、B,全为字符型(见窗体视图);
2、建立1个窗体,其上创建1个列表框,2个按钮(见窗体视图);
3、按钮“清空B列数值”的单击事件中输入如下代码:
Private Sub Command2_Click()
strSQL = "UPDATE 表AB SET 表AB.B = ' ';" '清空
CurrentProject.Connection.Execute strSQL
Me.List0.Requery
End Sub
4、按钮“自动更新数值”的单击事件中输入如下代码:
Private Sub Command3_Click()
strSQL = "UPDATE 表AB SET 表AB.B = '2' WHERE (((表AB.A)>='40'));" '>=40
CurrentProject.Connection.Execute strSQL
strSQL = "UPDATE 表AB SET 表AB.B = '1' WHERE (((表AB.A)<'40' And (表AB.A)>'0'));" '<40 并且 >0
CurrentProject.Connection.Execute strSQL
strSQL = "UPDATE 表AB SET 表AB.B = '0' WHERE ((表AB.A)='0');" '=0
CurrentProject.Connection.Execute strSQL
strSQL = "UPDATE 表AB SET 表AB.B = ' ' WHERE (IsNull(表AB.A)=True or len(Trim(表AB.A))=0);" '=空
CurrentProject.Connection.Execute strSQL
Me.List0.Requery
End Sub
5、运行窗体,点击按钮就OK了。
假定前一列为A,后一列为B,在A的"更新后"事件中写入:
If Me![A] >= 40 Then
Me![B] = 2
Else
If Me![A] = 0 Then
Me![B] = 0
Else
If Me![A] < 40 Then
Me![B] = 1
Else
If IsNull(Me![A]) = True Then
Me![B] = Null
End If
End If
End If
End If
OleDbDataAdapter adapter = new OleDbDataAdapter(command,connection);
adapter.Fill(table);
int[] array = new int[table.rows.count];
for/foreach
没有语句可以使用,可以用其他方法,VB
绛旓細1銆佸缓绔嬩竴涓暟鎹〃锛岃〃涓湁2涓瓧娈礎銆丅锛屽叏涓哄瓧绗﹀瀷锛堣绐椾綋瑙嗗浘锛夛紱2銆佸缓绔1涓獥浣擄紝鍏朵笂鍒涘缓1涓垪琛ㄦ锛2涓寜閽紙瑙佺獥浣撹鍥撅級锛3銆佹寜閽滄竻绌築鍒楁暟鍊尖濈殑鍗曞嚮浜嬩欢涓緭鍏ュ涓嬩唬鐮侊細Private Sub Command2_Click()strSQL = "UPDATE 琛ˋB SET 琛ˋB.B = ' ';" '娓呯┖ CurrentProject.Connecti...
绛旓細鍋囪琛ㄥ悕涓猴細TB锛岀涓鍒涓猴細A锛岀浜屽垪涓築锛氬垯璇硶涓猴細UPDATE Tb SET B = switch(A>=40,2,A>0 and A<40,1,A is null,null);娴嬭瘯閫氳繃
绛旓細Dim AA As IntegerAA = Val(Right(Left(Text1.Text, 2), 3)) '鎻愬彇鍚庝笁浣嶇殑鍓嶄簩浣嶄负鏁板瓧RS.AddNew '澧炲姞璁板綍 RS!ID = Text1.Text RS!B = AA RS!C = AA RS!D = AA If AA = 12 Then '鍒ゆ柇E瀛楁瀛樺偍浠涔 RS!E = "x" ElseIf AA = 13 Then ...
绛旓細select *,iif(isnull(鍙栬揣鑰),"绌","鏈") as 搴撳瓨鐘舵 from 琛ㄥ悕;灏嗕笂杩癝QL璇彞淇濆瓨涓轰竴涓煡璇㈠嵆鍙紝娉ㄦ剰璁板緱鏍稿璇彞涓殑瀛楁鍚嶅拰琛ㄥ悕瑕佷笌瀹為檯鎯呭喌涓鑷淬
绛旓細瀛楁鏍煎紡灏嗘枃瀛楁敼鎴愭暟瀛楀嵆鍙傚湪鏁版嵁搴撹褰曚腑锛屽彧鏈夊啓鍏ョ殑鍏堝悗椤哄簭锛屼綘璇寸殑鍓嶅嚑琛岋紝鏄寚杈撳嚭鐨勭粨鏋滐紝杈撳嚭鐨勭粨鏋滅敱鎺掑簭鏉ョ‘瀹氥傚 select * from tb order by 搴忓彿锛
绛旓細鍦ㄨ〃涓夎璁¤鍥句腑锛岄変腑鈥滃垎绫烩濓紝鍦ㄤ笅闈㈠睘鎬у垪琛ㄤ腑鐐规煡闃咃紝 灏嗘樉绀烘帶浠朵慨鏀逛负缁勫悎妗嗭紝鍐嶅皢涓嬮潰琛屾潵婧愯缃负琛1.鍦ㄨ〃涓夎璁¤鍥句腑鎸夊悓鏍锋柟娉曡缃滃悕绉扳濓紝璁剧疆琛屾潵婧愭椂鐐瑰嚮鏈鍙抽潰鎸夐挳鎵撳紑鏌ヨ鐢熸垚鍣紝鍦ㄦ樉绀鸿〃涓夋嫨琛2鍜岃〃3锛屽苟灏嗚〃3鐨勨滃垎绫烩濆拰琛2鐨勨滃晢鍝佸垎绫烩濆缓绔嬪叧绯昏繛鎺ワ紝灏嗚〃2鐨勨滃晢鍝佸垎绫...
绛旓細SELECT DISTINCT EMPLOYEE.name FROM employee inner join salary on employee.name = salary.name where salary.job ='a'
绛旓細灏嗚瀛楁鐨勫瓧娈电被鍨嬭瀹氫负鏃ユ湡鏃堕棿鍨嬶紝榛樿鍊艰涓猴細1.date() 鏄剧ず褰撳墠鏃ユ湡 2.now() 鏄剧ず褰撳墠鏃ユ湡鏃堕棿 鏍煎紡灞炴锛屾牴鎹闇瑕佽繘琛岃瀹氾紝濡傗滅煭鏃舵湡鈥濓紝涓婇潰涓ょ缁撴灉鏄竴鏍风殑銆
绛旓細select * from 鏁版嵁琛 where 鍑崟鍙=[璇疯緭鍏ュ嚟鍗曞彿]杩愯鏌ヨ鏃讹紝浼氬脊鍑哄璇濇璁╀綘杈撳叆鍑崟鍙凤紝杈撳叆鍚庯紝浼氭樉绀哄嚭鏁版嵁琛ㄤ腑锛屽嚟鍗曞彿涓轰綘杈撳叆鐨勫嚟鍗曞彿鐨勯偅浜涜褰曘傚叾涓紝*浠h〃鎵鏈夊垪锛屽嚟鍗曞彿浠h〃鍑崟鍙烽偅涓鍒锛屽鏋滈偅涓鍒楃殑鍚嶅瓧涓嶆槸鍑崟鍙风殑璇濓紝鏀规垚姝g‘鐨勫垪鍚嶅氨琛屻傛湰绛旀搴旇鏄弧鍒嗐
绛旓細浜嬪墠鍋氫袱涓〃鐨勮〃鍏宠仈锛岀劧鍚庡嬀閫夊弬鐓у畬鏁存с佺骇鑱旀洿鏂板拰绾ц仈鍒犻櫎銆傝繖鏍峰氨琛屼簡