copy powerprn.dll to sybase folders
[PowerBuilder] Error opening DLL library powerprn.dll for external function at line 19 in constructor event of object powerprinter.(R0014)
copy powerprn.dll to sybase folders
打開powerbuilder 6.5出現以下錯誤"在 Windows 程式中開啟說明時發生錯誤：「功能未包含在內」或「說明不受支援」"
這錯誤是winhlp32.exe造成
偷吃步解決方式 => 不要讓它出現
將以下參數改為0，但HELP就是無法使用
[SQL]產生SQLAgent排程LIST
SELECT
-- job.job_id,
-- notify_level_email,
name,
-- Right('00000000' + Cast(steps.last_run_time as varchar),6) as time,--hhmmss
left(substring('000000',1,6-len(next_run_time))+Convert(nchar,next_run_time),2)+':'+substring(substring('000000',1,6-len(next_run_time))+Convert(nchar,next_run_time),3,2)+':'+right(next_run_time,2) as RUNTIME,
enabled,
description,
step_name,
command,
server,
database_name
FROM
msdb.dbo.sysjobs job
INNER JOIN
msdb.dbo.sysjobsteps steps ON job.job_id = steps.job_id
left join msdb.dbo.sysjobschedules as s on job.job_id = s.job_id
WHERE
job.enabled = 1 -- remove this if you wish to return all jobs
order by next_run_time asc
[RedAjax]UpdatePanelRenderMode in RedControl
this.Master.AjaxManager.AjaxSettings.AddAjaxSetting(P_Edit, P_GridMulti, null, UpdatePanelRenderMode.Inline);
this.Master.AjaxManager.AjaxSettings.AddAjaxSetting(P_Edit, P_GridList, null, UpdatePanelRenderMode.Inline);
RadAjaxLoadingPanel loading = (RadAjaxLoadingPanel)this.Master.AjaxManager.FindControl("RadAjaxLoadingPanel1");
this.Master.AjaxManager.AjaxSettings.AddAjaxSetting(P_GridMulti, P_GridMulti, loading, UpdatePanelRenderMode.Inline);
來源參考：
https://docs.telerik.com/devtools/aspnet-ajax/controls/ajaxmanager/how-to/radajax-and-webusercontrols
[SQL]UPDATE 產生流水號
DECLARE @MAX_ACCOLFID INT
SELECT @MAX_ACCOLFID = MAX(ACCOLFID) FROM COIF_1
--以上流水號可承接別的TABLE
UPDATE COIF_2
SET @MAX_ACCOLFID = @MAX_ACCOLFID + 1,
ACCOLFID = @MAX_ACCOLFID
[ASP.net][javascript]RadComboBox取出選取欄位的值
<script type="text/javascript">
function OnClientSelectedIndexChanged(sender, eventArgs) {
var item = eventArgs.get_item().get_attributes()._data.BNKNM;
document.getElementById("Q_txtBNKNM").value = item;
}
</script>
<ILS:ILSRadComboBox ID="Q_cbxBNKID" runat="server" ColumnName="BNKID" Filter="Contains" OnClientSelectedIndexChanged="OnClientSelectedIndexChanged" Onchange="OnClientSelectedIndexChanged">
<HeaderTemplate>
<table style="width: 150px" cellspacing="0" cellpadding="0">
<tr>
<td style="width: 25px;">代號
</td>
<td style="width: 125px; align-items: center;">名稱
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="width: 150px" cellspacing="0" cellpadding="0">
<tr>
<td id="td_cbxBNKID" style="width: 25px;">
<%# DataBinder.Eval(Container, "Attributes['BNKID']")%>
</td>
<td id="td_cbxBNKNM" style="width: 125px;">
<%# DataBinder.Eval(Container, "Attributes['BNKNM']")%>
</td>
</tr>
</table>
</ItemTemplate>
</ILS:ILSRadComboBox>
------------------------------------下面是連資料庫產生值
DataTable dt = DKHIFIComManager.Get_DKHIFI_USP_COM_FBNKID_AS01("", "");
DataRow dr = dt.NewRow();
dr["BNKID"] = string.Empty;
dr["BNKNM"] = string.Empty;
dt.Rows.InsertAt(dr, dt.Rows.Count);
foreach (DataRow dataRow in dt.Rows)
{
RadComboBoxItem item = new RadComboBoxItem();
item.Text = dataRow["BNKID"].ToString();//combobox
item.Value = dataRow["BNKID"].ToString();
string BNKID = (string)dataRow["BNKID"];
string BNKNM = (string)dataRow["BNKNM"];
item.Attributes.Add("BNKID", BNKID);
item.Attributes.Add("BNKNM", BNKNM);
Q_cbxBNKID.Items.Add(item);
item.DataBind();
}
[EXCEL]巨集範例
Sub HCUP160P_AUTO()
'
' HCUP160P_AUTO 巨集
'
'
Rows("1:19").Select ' 選取1-19row
Range("A19").Activate
Selection.Delete Shift:=xlUp '刪除選取的row
Columns("A:AE").Select
With ActiveWindow
.SplitColumn = 0
.SplitRow = 0
End With
Selection.UnMerge
Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlLTR
.MergeCells = False
End With
Rows("1:1").Select
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Dim i As Long
i = ActiveSheet.UsedRange.Rows.Count '取得現在工作表有幾個row
Dim strD As String
strD = "Z" + Str(i)
strD = Replace(strD, " ", "") '算出右下角最後一格
'依照G欄做排序
Columns("G:G").Select
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("G1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range("A2:" + strD) '排序範圍擴大
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:Z").EntireColumn.AutoFit '完成後自動欄寬
End Sub
訂閱：
文章 (Atom)