Mit

convert(datetime, left(CB_insert_time,charindex(' ',@시간,1)-1) + ' ' + right(@시간,charindex(' ',reverse(@시간),1)-1) + case when charindex('오전',@시간,1) > 0 then 'AM' else 'PM' end )

https://stackoverflow.com/questions/27157390/wpf-custom-window-windows-edge-resize-feature Wpf custom window, Windows edge resize feature Got a custom wpf window (WindowStyle=None, AllowTransparancy=true) and wondering how to get Windows edge resize features to work.. you know when draging window and mouse touches left, right or top ... stackoverflow.com

Xaml code:​​​​​​​ public MainWindow() { InitializeComponent(); for (int i = 0; i

Microsoft.Office.Interop을 사용하여 셀별로 복사하면 너무오래걸려 Row 일괄 복사하도록하여 성능향상 DataGrid -> DataView -> DataTable 로 변환하고 foreach 에서 DataRow 별로 일괄 붙이기. DataView Dview = (DataView)result_grid2.ItemsSource as DataView; DataTable Ex_table = Dview.Table; string excelRange1 = "A" + cellRowIndex;// 복사 시작범위 string excelRange2 = "BL" + cellRowIndex;// 복사 종료범위 worksheet.Range[excelRange1, excelRange2].Value2 = dr.Item..

데이터그리드 셀값 삭제하는방법이 어려워 셀값을 공백으로 붙여 넣었다. private void Paste_Cell(int col_index, int row_index) { DataGridColumn column1 = dataGrid1.ColumnFromDisplayIndex(col_index); column1.OnPastingCellClipboardContent(dataGrid1.Items[row_index], ""); }

if (list_box.LineCount > 1) { list_box.Text = list_box.Text.Insert(0, "[" + line_count.ToString() + "] " + lines); } else { list_box.AppendText("["+line_count.ToString()+"] "+lines); }

list_box.Text = list_box.Text.Remove(list_box.Text.LastIndexOf(Environment.NewLine));

String RF_text; private void SetText(string text) { if (RF_ID.Dispatcher.CheckAccess()) { RF_text = RF_text + text; byte[] StrByte = Encoding.UTF8.GetBytes(text); for (int i = 0; i < StrByte.Length; i++) { if (StrByte[i] == 0x03) //0x1A { RF_ID.Text = RF_text; SendSerial(true); RF_text = String.Empty; break; } } } else { SetTextCallBack d = new SetTextCallBack(SetText); RF_ID.Dispatcher.Invoke(d..

VBA 셀 선택 이벤트(선택한 열 색 추가, 이전 열 색 삭제) -- Sheet1 Public pre_string As Integer Public Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo test Dim rs_string As Integer rs_string = VBA.Right(ActiveCell.Address, (Len(ActiveCell.Address) - 3)) 'ActiveCell.Address If Selection.Count = 1 And Sheet1.Range("a" & rs_string & ":z" & rs_string).Interior.Color RGB(120, 240, 200) Then If Not Inte..

if (!cmbBox.IsLoaded) return;