|
本帖最后由 liupeng1990607 于 2012-12-22 12:08 编辑
[code] _Query($RS,)
$RS.open ("SELECT cpf01,cpf02,cpf04,cpf07,cpf29,cpf70,cpf22 FROM cpf_file");
While (Not $RS.eof And Not $RS.bof);
Local $str1=$RS.Fields(2).value
Local $c3=StringLeft ( $str1, 4 )&"年"&StringMid( $str1, 5,2 )&"月"&StringMid( $str1, 7,2 )&"日"
Local $str2=$RS.Fields(5).value
Local $c5=StringLeft ( $str2, 4 )&"年"&StringMid( $str2, 5,2 )&"月"&StringMid( $str2, 7,2 )&"日"
Local $c2=$RS.Fields(1).value
Local $c7=$RS.Fields(6).value
$c2 = _WinAPI_MultiByteToWideChar($c2, 950, $MB_COMPOSITE, False);转为繁体中文
$c2 = _WinAPI_WideCharToMultiByte($c2, 936);转为GBK繁体中文
$c7 = _WinAPI_MultiByteToWideChar($c7, 950, $MB_COMPOSITE, False);转为繁体中文
$c7 = _WinAPI_WideCharToMultiByte($c7, 936);转为GBK繁体中文
GUICtrlCreateListViewItem($RS.Fields(0).value&"|"&$c2&"|"&$c3&"|"&$RS.Fields(3).value&"|"&$RS.Fields(4).value&"|"&$c5&"|"&$c7, $Form3)
$RS.movenext;
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|